home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / VTOOLS / FASTDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1995-03-24  |  5KB  |  158 lines
  1. Uses VTFast,VTKey,CRT;
  2. Var TMP : Byte;
  3.  
  4. Procedure MainDisplay;
  5. Begin
  6.  SetPage(0);
  7.  ClS(7); HideCursor;
  8.  PlainWriteCenter(1,'PROFESSIONAL SOFTWARE SYSTEM');
  9.  PlainWriteCenter(2,'────────────────────────────');
  10.  ColorWriteCenter(4,14,Red,' VISION TOOLS ');
  11.  ColorWrite(2,7,15,1,'A FAST way to design Your interFACE with Turbo/Borland PASCAL 6.0+');
  12.  PlainWrite(2,8,'VERSION 1.0 - Beta');
  13.  PlainHorizLine(1,80,9,1);
  14.  ColorHorizLine(1,80,10,15,0,2);
  15.  ColorWrite(1,11,15,red,'WARNING!');
  16.  PlainWrite(10,11,'ALL OF THEESE UNITS IS NOT COMPLETE WARIANT!');
  17.  PlainWrite(1,12,'We still extending this units to complete wariant.');
  18.  PlainWrite(1,13,'All of theese units may not work correctly. If You find any errors please');
  19.  PlainWrite(1,14,'send mail/Email to us with error that You found. Thanx!');
  20.  ColorWriteBetween(1,80,25,15+Blink,1,' PRESS ANY KEY TO CONTINUE ');
  21.  GetKey(Key,Key1);
  22. End;
  23.  
  24. Procedure PlainAndColorDemo;
  25. Begin
  26.  FillScreen(15,1,#178);
  27.  PlainClearText(1,1,80,5);
  28.  PlainWriteCenter(3,'This is plain cleared.');
  29.  ClearText(1,7,80,12,14,0);
  30.  PlainWriteCenter(9,'This is color cleared.');
  31.  PlainWriteVert(75,1,'PLAIN WRITE VERT');
  32.  PlainVertLine(76,1,16,1);
  33.  ColorWriteVert(5,1,14,red,'COLOR WRITE VERT');
  34.  ColorVertLine(4,1,16,14,red,2);
  35.  ColorWriteCenter(24,14,red,' THIS IS TEXTPAGE 0 ');
  36.  ColorWriteCenter(25,14,red,' PRESS ANY KEY TO CONTINUE ');
  37.  GetKey(Key,Key1);
  38. End;
  39. Procedure BoxDemo;
  40. Begin
  41.  DrawBox(1,1,39,12,1);
  42.  DrawFillBox(41,1,80,12,15,1,2);
  43.  ExplodeBox(1,13,80,24,15,red,2);
  44.  PlainWriteBetween(1,39,6,'THIS IS PLAIN WRITTEN BOX');
  45.  PlainWriteBetween(41,80,6,'THIS IS COLOR WRITTEN BOX');
  46.  PlainWriteCenter(17,'THIS BOX HAS EXPLODED');
  47. End;
  48.  
  49. Procedure PageDemo;
  50. Begin
  51.  ColorWriteCenter(25,14,red,' THIS IS TEXTPAGE 1. PRESS ANY KEY TO RETURN IN TEXTPAGE 0 ');
  52.  GetKey(Key,Key1);
  53.  SetPage(0);
  54.  ColorWriteCenter(25,14,red,' THIS IS TEXTPAGE 0. PRESS ANY KEY ');
  55.  GetKey(Key,Key1);
  56.  SetPage(1);
  57.  ColorWriteCenter(25,14,red,' THIS IS TEXTPAGE 1. PRESS ANY KEY TO CONTINUE');
  58.  GetKey(Key,Key1);
  59.  Cls(7);
  60.  SetPage(0);
  61. End;
  62. Procedure CursorDemo;
  63.  
  64. Procedure ClearStatLine;
  65. Begin
  66.  ClearText(1,13,80,13,15,red);
  67. End;
  68.  
  69. Begin
  70.  Cls(7);
  71.  XY(40,12);
  72.  SetCharAttr(40,12,Attrib(15,1));
  73.  PlainWriteChar(40,12,'≡');
  74.  ClearStatLine;
  75.  PlainWriteCenter(13,'Now cursor is invisible.');
  76.  HideCursor;
  77.  Delay(2000);
  78.  ClearStatLine;
  79.  PlainWriteCenter(13,'Now cursor is "HalfCursor"');
  80.  HalfCursor;
  81.  Delay(2000);
  82.  ClearStatLine;
  83.  PlainWriteCenter(13,'Now cursor is "FullCursor"');
  84.  FullCursor;
  85.  Delay(2000);
  86.  ClearStatLine;
  87.  PlainWriteCenter(13,'Now cursor is normal');
  88.  SmallCursor;
  89.  Delay(2000);
  90. End;
  91. Procedure ScrollDEmo;
  92. Begin
  93.   ScrollUp(5,5,75,20,2,7);
  94.   ColorWriteCenter(25,15,red,' Block of screen scrolls up two lines. PRESS ANY KEY to Scroll down two lines. ');
  95.   GetKey(Key,Key1);
  96.   ScrollDown(5,5,75,20,2,7);
  97.   PlainClearText(1,25,80,25);
  98.   ColorWriteCenter(25,15,red,'Now block of screen returns to previous position. PRESS ANY KEY.');
  99.   GetKey(Key,Key1);
  100. End;
  101.  
  102. Procedure ColorDemo;
  103. Var Coord,
  104.     Tmp1 : Byte;
  105. Begin
  106.  Cls(7);  Coord := 1;
  107.  For Tmp := 0 to 15 Do Begin
  108.                        For Tmp1 := 0 To 15 Do
  109.                        Begin
  110.                         ColorWrite(Coord,Tmp1,Tmp,Tmp1,'TEXT');
  111.                        End;
  112.                        Inc(Coord,5);
  113.                        End;
  114.  ColorWriteCenter(25,15,red,'This is 16 x 8 colors & 16 x 8 blinking colors. PRESS ANY KEY');
  115.  GetKey(Key,Key1);
  116.  ClearText(1,25,80,25,15,red);
  117.  SetBlink(False);
  118.  ColorWriteCenter(25,15,red,'This is 16 x 16 colors. PRESS ANY KEY');
  119.  GetKey(Key,Key1);
  120.  SetBlink(True);
  121. End;
  122.  
  123. Procedure Info;
  124. Begin
  125.  Cls(7);
  126.  PlainWrite(1,1,' Vision tools are projected and compiled by:');
  127.  PlainWrite(1,3,' PROFESSIONAL COMPUTER SYSTEMS (PSS)');
  128.  PlainWrite(2,4,ReplicateChar(35,'-'));
  129.  PlainWrite(1,5,' BULGARIA,');
  130.  PlainWrite(1,6,' 2700 BLAGOEVGRAD');
  131.  PlainWrite(1,7,' Vladimir Vasilev Ivanov');
  132.  PlainWrite(1,8,' 14ti POLK Str. No.6 Inp"V",Fl.3');
  133.  PlainWrite(1,9,' Phone: +359-73-280-57');
  134.  
  135.  PlainWrite(40,7,' Victor Nikolov Levunliev');
  136.  PlainWrite(40,8,' Hajdukovi Str No.72a Fl.2');
  137.  PlainWrite(40,9,' Phone: +359-73-242-63');
  138.  
  139.  Halt;
  140. End;
  141.  
  142.  
  143. Begin
  144.  IF Not EGAVGASystem Then Begin
  145.                            WriteLn('SORRY MINIMUM EGA Required!');
  146.                            Halt(1);
  147.                           End;
  148.  MainDisplay;
  149.  PlainAndColorDemo;
  150.  SetPage(1);
  151.  Cls(7);
  152.  BoxDemo;
  153.  PageDemo;
  154.  CursorDemo;
  155.  ScrollDemo;
  156.  ColorDemo;
  157.  Info;
  158. End.